inherited frmTipoVeiculos: TfrmTipoVeiculos
  Width = 644
  Height = 313
  Caption = 'Cadastro de Tipo de Ve'#237'culos'
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 234
    Width = 628
  end
  inherited tbrBotoes: TsToolBar
    Width = 628
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 628
    Height = 169
    Align = alClient
    PageIndex = 1
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object pnlPrincipal: TsPanel
        Left = 0
        Top = 0
        Width = 628
        Height = 169
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel1: TsLabel
          Left = 48
          Top = 56
          Width = 100
          Height = 13
          Caption = 'C'#243'digo Tipo Ve'#237'culo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel2: TsLabel
          Left = 48
          Top = 80
          Width = 115
          Height = 13
          Caption = 'Descri'#231#227'o Tipo Ve'#237'culo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object cedCodigoTipoVeiculo: TsCurrencyEdit
          Tag = 2000
          Left = 168
          Top = 52
          Width = 80
          Height = 21
          AutoSize = False
          TabOrder = 0
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '########0'
        end
        object edtDescricaoTipoVeiculo: TsEdit
          Tag = 1000
          Left = 168
          Top = 76
          Width = 377
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 628
        Height = 169
        Align = alClient
        Caption = 'pnlConsulta'
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object dbgConsulta: TRxDBGrid
          Left = 1
          Top = 1
          Width = 626
          Height = 167
          Align = alClient
          DataSource = dtsConsulta
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgConsultaDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'CODIGO_TIPO_VEICULO'
              Title.Caption = 'C'#243'digo Tipo Ve'#237'culo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DESCRICAO_TIPO_VEICULO'
              Title.Caption = 'Descri'#231#227'o Tipo Ve'#237'culo'
              Visible = True
            end>
        end
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 512
    Top = 72
  end
  object qryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DESCRICAO_TIPO_VEICULO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO TIPO_VEICULO (DESCRICAO_TIPO_VEICULO)'
      'VALUES (:DESCRICAO_TIPO_VEICULO)')
    Left = 32
    Top = 201
  end
  object qryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DESCRICAO_TIPO_VEICULO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_TIPO_VEICULO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE TIPO_VEICULO'
      'SET DESCRICAO_TIPO_VEICULO    = :DESCRICAO_TIPO_VEICULO'
      'WHERE CODIGO_TIPO_VEICULO = :CODIGO_TIPO_VEICULO')
    Left = 120
    Top = 201
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TIPO_VEICULO')
    Left = 312
    Top = 97
    object qryConsultaCODIGO_TIPO_VEICULO: TAutoIncField
      FieldName = 'CODIGO_TIPO_VEICULO'
      ReadOnly = True
    end
    object qryConsultaDESCRICAO_TIPO_VEICULO: TStringField
      FieldName = 'DESCRICAO_TIPO_VEICULO'
      Size = 50
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 408
    Top = 105
  end
  object qryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_TIPO_VEICULO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'DELETE FROM TIPO_VEICULO WHERE CODIGO_TIPO_VEICULO = :CODIGO_TIP' +
        'O_VEICULO')
    Left = 200
    Top = 169
  end
end
